home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / pgpWWW.tcl.z / pgpWWW.tcl
Text File  |  2002-07-08  |  6KB  |  194 lines
  1. #
  2. # PGP functions to query for public keys via WWW
  3. # author: Carl Roth <roth@cse.ucsc.edu>
  4. #
  5. # query the keyserver:
  6. #
  7. #
  8. # 
  9. # Added keyfetching method hkp
  10. # -- Markus Gruber
  11. #
  12. # $Log: pgpWWW.tcl,v $
  13. # Revision 1.5  2000/06/16 23:41:37  jmorzins
  14. # Corrected the email address for the pgp.mit.edu email keyserver.
  15. #
  16. # Revision 1.4  2000/06/09 03:19:55  valdis
  17. # Provide known working default URL for PGP keys - www-swiss.ai.mit.edu wasnt working
  18. #
  19. # Revision 1.3  1999/08/22 18:17:08  bmah
  20. # Email PGP queries now go out correctly.  Use Exmh_Status to inform
  21. # user of state of an outgoing email key query.
  22. #
  23. # Revision 1.2  1999/08/03 04:05:56  bmah
  24. # Merge support for PGP2/PGP5/GPG from multipgp branch.
  25. #
  26. # Revision 1.1.4.1  1999/06/14 20:05:17  gruber
  27. # updated multipgp interface
  28. #
  29. # Revision 1.1  1999/06/14 15:14:55  markus
  30. # added files
  31. #
  32. # Revision 1.2  1998/12/24 12:59:09  markus
  33. # fixed variable path in WWW_QueryWWWKey
  34. #
  35. # Revision 1.1.1.1  1998/11/24 22:34:46  markus
  36. # Initial revision
  37. #
  38.  
  39. proc Pgp_WWW_Init {} {
  40. global pgp
  41.  
  42. # preferences
  43. set pgp(pref,keyserver) { keyserver KeyServer "pgp-public-keys@keys.pgp.net"
  44. {Favorite public key server}
  45. "When a signature check fails because of a missing key,
  46. exmh allows you to ask a key server for the key.
  47. Please select a key server that's close to
  48. you so as to spread the load.  Examples include
  49. pgp-public-keys@pgp.mit.edu
  50. pgp-public-keys@keys.pgp.net
  51. pgp-public-keys@keys.us.pgp.net
  52. There are pgp-public-keys@keys.*.pgp.net servers for these domains:
  53. ch de es fi kr nl no uk us pt se hr tw pl
  54. See also http://www.pgp.net/pgpnet/" }
  55. #
  56. set pgp(pref,keyserverUrl) { keyserverUrl KeyServerURL 
  57. {http://keys.pgp.com:11371/pks/lookup?op=get&exact=on&search=0x%s}
  58. {URL to fetch keys interactively}
  59. "The WWW keyserver is forms based.  Enter a URL here where
  60. the key id (sans 0x) is substituted with %s (using format)" }
  61. #
  62. set pgp(pref,keyquerymethod) { keyquerymethod KeyQueryMethod {CHOICE hkp WWW email other}
  63. {Method for querying <label> keys}
  64. "PGP public keys can be queried using email servers
  65. (offline), using WWW servers (interactive)
  66. or the Horowitz Key Protocol.
  67. A user-supplied proc (other) can also be given to fetch the key." }
  68. #
  69. set pgp(pref,keyothermethod) { keyothermethod KeyOtherMethod 
  70. {exec echo "can't find $id" > $tmp} 
  71. {Other method to fetch a <label> key}
  72. "The external method need to fetch the id in \$id and place
  73. it into the temp file \$tmp." }
  74.  
  75. }
  76.  
  77. proc Pgp_WWW_QueryKey { v id } {
  78.     global pgp
  79.  
  80.     # dispatch based on whether we use email or WWW:
  81.     if [info exists pgp($v,keyquerymethod)] {
  82.         switch [set pgp($v,keyquerymethod)] {
  83.             hkp { Pgp_WWW_QueryHKPKey $v $id }
  84.             WWW { Pgp_WWW_QueryWWWKey $v $id }
  85.             email { Pgp_WWW_QueryEmailKey $v $id }
  86. #            email { Pgp_Misc_Send [set pgp($v,keyserver)] "GET 0x$id" }
  87.             default { Pgp_WWW_QueryOtherKey $v $id }
  88.         }
  89.     } else {
  90.         Exmh_Status "No keyserver support for [set pgp($v,fullName)]"
  91.     }
  92. }
  93.  
  94. proc Pgp_WWW_QueryEmailKey { v id } {
  95.     global pgp
  96.  
  97.     Exmh_Debug "Pgp_WWW_QueryEmailKey $v $id"
  98.  
  99.     Exmh_Status "Sending query to get key $id from $pgp($v,keyserver)"
  100.     Pgp_Misc_Send [set pgp($v,keyserver)] "GET 0x$id"
  101.     Exmh_Status "Sent query to get key $id from $pgp($v,keyserver)"
  102. }
  103.  
  104. proc Pgp_WWW_QueryHKPKey { v id } {
  105.     global pgp
  106.  
  107.     Exmh_Debug "Pgp_WWW_QueryHKPKey $v $id"
  108.  
  109.     Exmh_Status "Running [set pgp($v,fullName)] to import key $id via HKP"
  110.     set server [set pgp($v,HKPkeyserverUrl)]
  111.     Pgp_Exec_Batch $v key [subst [set pgp($v,args_HKPimport)]] output
  112.     Exmh_Status "[lindex [split $output \n] end]"
  113.     Exmh_Debug "<Pgp_WWW_QueryHKPKey> $output"
  114. }
  115.  
  116. proc Pgp_WWW_make_msg {id file} {
  117.     global exmh
  118.  
  119.     set rcvstore [file dirname $exmh(slocal)]/rcvstore
  120.     set pipe [open "|$rcvstore +$exmh(folder)" w]
  121.     puts $pipe "Mime-Version: 1.0 (generated by exmh)"
  122.     puts $pipe "Content-Type: application/pgp; format=keys-only"
  123.     puts $pipe "Date: [exec date]"
  124.     puts $pipe "From: system"
  125.     puts $pipe "Subject: Output of pgp on id $id"
  126.     puts $pipe ""
  127.  
  128.     exec cat $file >@$pipe
  129.     close $pipe
  130.  
  131.     # update the folder listing:
  132.     Flist_FindUnseen
  133.     busy Scan_FolderForce
  134. }
  135.  
  136. proc Pgp_WWW_QueryStatus {state count length} {
  137.     if {$length} {
  138.     Exmh_Status [format "%s... %.1f%% complete" \
  139.              $state [expr 100.0 * $count / $length]]
  140.     } else {
  141.     Exmh_Status [format "%s..." $state]
  142.     }
  143. }
  144.  
  145. proc Pgp_WWW_QueryDone { v url file } {
  146.     global pgp
  147.  
  148.     upvar #0 $url data
  149.     if {[info exists data(html)]} {
  150.     set fd [open $file w]
  151.     puts -nonewline $fd $data(html)
  152.     close $fd
  153.     }
  154.     set pgp($v,querydone) 1
  155. }
  156.  
  157. proc Pgp_WWW_QueryWWWKey { v key } {
  158.     global pgp
  159.  
  160.     set url [format [set pgp($v,keyserverUrl)] $key]
  161.     set pgp($v,querydone) 0
  162.     Exmh_Status "posting query $url"
  163.  
  164.     set tmp [Mime_TempFile "pgpkey"]
  165.     Http_get $url "Pgp_WWW_QueryDone $v $url $tmp" Pgp_WWW_QueryStatus
  166.     tkwait variable pgp($v,querydone)
  167.     if {[file exists $tmp]} {
  168.     Exmh_Status "Saving key $key"
  169.     if [Pgp_Exec_ExtractKeys $v $tmp out 0] {
  170.         exec rm -f $tmp
  171.     }
  172.     } else {
  173.     Exmh_Status "unable to fetch key!"
  174.     }
  175. }
  176.  
  177. # query key using an external function
  178. proc Pgp_WWW_QueryOtherKey { v id } {
  179.     global pgp
  180.  
  181.     Exmh_Status "querying for key \[$id\]..."
  182.  
  183.     set tmp [Mime_TempFile "pgpkey"]
  184.     set cmd [eval [set pgp($v,keyothermethod)]]
  185.     if {[catch $cmd result]} {
  186.     Exmh_Status [format "unable to get key: %s" \
  187.              [lindex [split $key "\n"] 0]]
  188.     } else {
  189.     Exmh_Status "filing response"
  190.     Pgp_WWW_make_msg $id $tmp
  191.     }
  192.     exec rm -f $tmp
  193. }
  194.